1 REM **************
2 REM * LOGIKER/T-C
3 REM * ON 24.12.93
4 REM * FREEWARE
5 REM *
6 REM * SCHLUESSELRATEN
7 REM ******************
8 :
9 PRINT"[147] LOGIKER OF TIGER-CREW [146]":FORN=1TO800:NEXT
10 POKE 53280,0:POKE53281,0:POKE 788,52
15 RATE$="":OT=200:L=1
20 PRINT"[147]    [213][195][198][210][198][195][196][197][183][197][196][195][198][210][198][195][201]
30 [153]"    PEEKSCHLUESSELRATENPEEK
40 PRINT"    [202][195][196][197][196][195][198][210][175][210][198][195][198][210][198][195][203]
50 [153]" WELCHER DER RECHTEN
60 PRINT" SCHLUESSEL IST MIT
70 [153]" DEM LINKEN IDENTISCH?"
80 [129] N[178]1[164]1000:[130]
90 [153]" SIE HABEN ABER
100 PRINT" NUR WENIG ZEIT!
110 [129] N[178]1[164]600:[130]
120 A$(1)[178]"NEW"
130 A$(2)[178]"FREWAIT"
140 A$(3)[178]"USRWAIT"
150 A$(4)[178]"TAB(WAIT"
160 A$(5)[178]" WAIT"
170 [129] N[178]1[164]5
180 RATE$[178]RATE$[170]A$([181]([187](0)[172]5[170]1))
190 [130]
200 [153] " STEP (null)CMDCMDCMD   WAITCMDCMDCMD(null) WAITSTEPON";RATE$
210 X[178][181]([187](0)[172]9)[170]1
220 [153]"
230 FOR NN=1 TO 9
240 FORN=1TO5:H$=H$+A$(INT(RND(0)*5+1)):NEXT
250 IF X=NN THEN H$=RATE$
260 PRINT TAB(24) NN;H$;""
270 H$=""
280 NEXT
285 T=OT
290 PRINT" IHR TIP: [191]":PRINT"      TIME
310 [161] A:[139] A[178]X[167]370
320 [139] A[178]X[167]370
330 [139] A[177]0[167]410
340 T[178]T[171]1:[139]T[178]0[167]440
350 [153] "ON";T;"CMD  "
360 [137] 310
370 [153]" GRATULIERE!
380 PRINT" NAECHSTER":L=L+1
390 PRINT" LEVEL:";L;"[157]  "
400 OT=INT(OT*9/10):RATE$="":GOSUB600:GOTO 20
410 PRINT" LEIDER FALSCH!
420 [153]" DIE LOESUNG WAR";X;"
430 GOTO 480
440 PRINT" ZU SPAET!
450 [153]" DIE ZEIT IST UM.
460 PRINT" DIE LOESUNG WAR";X
470 GOTO 480
480 GOSUB 600
485 IF L>HL THEN HL=L
490 PRINT"[145][145][145] HIGH-LEVEL:";HL;"[157]  "
500 PRINT" NOCHEINMAL(J/N)?  "
510 PRINT"                  "
520 GOSUB 600
530 IF F$="J"THEN 10
540 IF F$<>"N"THEN520
550 PRINT"[147] TSCHUESS UND BIS ZUM NAECHSTEN MAL!":SYS 42115
600 GETF$:IFF$=""THEN 600
610 RETURN